Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/tabbed21/main.frm

Visual Basic Form | 1995-05-02 | 14.0 KB | 391 lines

VERSION 2.00
Begin Form Main
   BackColor       =   &H00C0C0C0&
   Caption         =   "Tabbed Dialog VBX Demo"
   ClientHeight    =   4845
   ClientLeft      =   1725
   ClientTop       =   2955
   ClientWidth     =   8700
   Height          =   5250
   Left            =   1665
   LinkTopic       =   "Form1"
   ScaleHeight     =   4845
   ScaleWidth      =   8700
   Top             =   2610
   Width           =   8820
   Begin PictureBox IFrame1
      BackColor       =   &H00C0C0C0&
      Height          =   3705
      Index           =   2
      Left            =   135
      ScaleHeight     =   3675
      ScaleWidth      =   8145
      TabIndex        =   21
      Top             =   930
      Visible         =   0   'False
      Width           =   8175
      Begin Label Label19
         BackStyle       =   0  'Transparent
         Caption         =   "A TabPosition Property to allow the tabs to be places along any edge of the control."
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   510
         Left            =   780
         TabIndex        =   19
         Top             =   2130
         Width           =   6015
      End
      Begin Label Label18
         BackStyle       =   0  'Transparent
         Caption         =   "A Rows Property to enable multiple rows of tabs for a single control."
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   360
         Left            =   780
         TabIndex        =   20
         Top             =   1635
         Width           =   6150
      End
      Begin Label Label17
         BackStyle       =   0  'Transparent
         Caption         =   "A TabHeight Property to allow the size of the tabs to be changed."
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   405
         Left            =   780
         TabIndex        =   18
         Top             =   1110
         Width           =   6075
      End
      Begin Label Label16
         BackStyle       =   0  'Transparent
         Caption         =   "New Features in version 2.0:"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   375
         Left            =   150
         TabIndex        =   17
         Top             =   555
         Width           =   8040
      End
      Begin Label Label15
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         Caption         =   "Tabbed Dialog VBX"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   13.5
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   450
         Left            =   0
         TabIndex        =   16
         Top             =   90
         Width           =   8175
      End
   End
   Begin PictureBox IFrame1
      BackColor       =   &H00C0C0C0&
      Height          =   3675
      Index           =   3
      Left            =   90
      ScaleHeight     =   3645
      ScaleWidth      =   8280
      TabIndex        =   22
      Top             =   960
      Visible         =   0   'False
      Width           =   8310
      Begin Label Label6
         BackColor       =   &H00C0C0C0&
         Caption         =   "Ashton Information Services is:"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   2505
         Left            =   90
         TabIndex        =   5
         Top             =   1110
         Width           =   8085
      End
      Begin Label Label5
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         Caption         =   "Copyright
 1993, Ashton Information Services"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Left            =   90
         TabIndex        =   4
         Top             =   765
         Width           =   8175
      End
      Begin Label Label4
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         Caption         =   "Version 2.0"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   315
         Left            =   45
         TabIndex        =   3
         Top             =   495
         Width           =   8220
      End
      Begin Label Label3
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         Caption         =   "Tabbed Dialog VBX"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   13.5
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   450
         Left            =   30
         TabIndex        =   2
         Top             =   45
         Width           =   8175
      End
   End
   Begin PictureBox IFrame1
      BackColor       =   &H00C0C0C0&
      Height          =   3675
      Index           =   1
      Left            =   105
      ScaleHeight     =   3645
      ScaleWidth      =   8280
      TabIndex        =   23
      Top             =   975
      Visible         =   0   'False
      Width           =   8310
      Begin ComboBox Combo2
         Height          =   300
         Left            =   2310
         Sorted          =   -1  'True
         Style           =   2  'Dropdown List
         TabIndex        =   11
         Top             =   1950
         Width           =   3000
      End
      Begin ComboBox Combo1
         Height          =   300
         Left            =   2310
         Sorted          =   -1  'True
         Style           =   2  'Dropdown List
         TabIndex        =   7
         Top             =   570
         Width           =   3000
      End
      Begin Label Label12
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Label12"
         Height          =   810
         Left            =   2310
         TabIndex        =   13
         Top             =   2295
         Width           =   5000
      End
      Begin Label Label11
         BackColor       =   &H00C0C0C0&
         Caption         =   "Description:"
         Height          =   285
         Left            =   90
         TabIndex        =   12
         Top             =   2325
         Width           =   2100
      End
      Begin Label Label10
         BackColor       =   &H00C0C0C0&
         Caption         =   "Non-Standard Events:"
         Height          =   255
         Left            =   90
         TabIndex        =   10
         Top             =   2010
         Width           =   2115
      End
      Begin Label Label9
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Label9"
         Height          =   885
         Left            =   2310
         TabIndex        =   9
         Top             =   930
         Width           =   5000
      End
      Begin Label Label8
         BackColor       =   &H00C0C0C0&
         Caption         =   "Description:"
         Height          =   255
         Left            =   75
         TabIndex        =   8
         Top             =   975
         Width           =   2145
      End
      Begin Label Label7
         BackColor       =   &H00C0C0C0&
         Caption         =   "Non-Standard Properties:"
         Height          =   240
         Left            =   45
         TabIndex        =   1
         Top             =   600
         Width           =   2265
      End
      Begin Label Label2
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         Caption         =   "Properties and Events"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   13.5
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   390
         Left            =   45
         TabIndex        =   6
         Top             =   75
         Width           =   8205
      End
   End
   Begin PictureBox IFrame1
      BackColor       =   &H00C0C0C0&
      Height          =   3720
      Index           =   0
      Left            =   105
      ScaleHeight     =   3690
      ScaleWidth      =   8325
      TabIndex        =   24
      Top             =   945
      Visible         =   0   'False
      Width           =   8355
      Begin Label Label14
         BackColor       =   &H00C0C0C0&
         Caption         =   "Ashton Information Services"
         Height          =   1290
         Left            =   2655
         TabIndex        =   15
         Top             =   1335
         Width           =   4830
      End
      Begin Label Label13
         BackColor       =   &H00C0C0C0&
         Caption         =   "This version of the Tabbed Dialog VBX (TABBED.VBX) is shareware. It can be registered by sending
23.50 (
20.00 + VAT), or US$35 to:"
         Height          =   675
         Left            =   105
         TabIndex        =   14
         Top             =   615
         Width           =   8100
      End
      Begin Label Label1
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         Caption         =   "Tabbed Dialog VBX"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   13.5
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   450
         Left            =   45
         TabIndex        =   0
         Top             =   210
         Width           =   8175
      End
   End
   Begin PictureBox Tabbed1
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   4785
      Left            =   30
      ScaleHeight     =   4755
      ScaleWidth      =   8580
      TabIndex        =   25
      Top             =   45
      Width           =   8610
   End
Option Explicit
Sub Combo1_Click ()
    Select Case Combo1.ListIndex
    Case 0
        Label9.Caption = "ActiveTab indicated the tab which is currently active. ActiveTab is an integer in the range 0..NumberOfTabs-1"
    Case 1
        Label9.Caption = "Captions is a comma separated list of the captions to be used for the tabs. For example, this control has a Captions property of """ + Tabbed1.Captions + """"
    Case 2
        Label9.Caption = "NumberOfTabs is an integer giving the number of tabs present in the control."
    Case 3
        Label9.Caption = "Rows is an integer which indicates the number of rows to be used to display the tabs."
    Case 4
        Label9.Caption = "TabHeight is an integer which gives the height of the tabs in twips."
    Case 5
        Label9.Caption = "TabPosition is an enumerated property that allows the tabs to be positioned along any edge of the control."
    Case Else
        Label9.Caption = "Error"
    End Select
End Sub
Sub Combo2_Click ()
    If Combo2.ListIndex = 0 Then
        Label12.Caption = "The TabChange event is executed whenever the user clicks on a tab other than the currently active tab. The single argument is the new value of ActiveTab."
    End If
End Sub
Sub Form_Load ()
    IFrame1(Tabbed1.ActiveTab).Visible = True
    Label6.Caption = "Ashton Information Services is:" + Chr$(13) + Chr$(13) + "Peter Ashton" + Chr$(13) + "28, Dragon View" + Chr$(13) + "Harrogate" + Chr$(13) + "North Yorkshire" + Chr$(13) + "HG1 4DG" + Chr$(13) + "U.K." + Chr$(13) + Chr$(13) + "E-mail: [e-mail]"
    Label14.Caption = "Ashton Information Services" + Chr$(13) + "28, Dragon View" + Chr$(13) + "Harrogate" + Chr$(13) + "North Yorkshire" + Chr$(13) + "HG1 4DG" + Chr$(13) + "U.K."
    Combo1.AddItem "NumberOfTabs"
    Combo1.AddItem "Captions"
    Combo1.AddItem "ActiveTab"
    Combo1.AddItem "Rows"
    Combo1.AddItem "TabHeight"
    Combo1.AddItem "TabPosition"
    Combo1.ListIndex = 0
    Combo2.AddItem "TabChange"
    Combo2.ListIndex = 0
End Sub
Sub Tabbed1_TabChange (ActiveTab As Integer)
Dim i As Integer
    For i = 0 To Tabbed1.NumberOfTabs - 1
        If i = ActiveTab Then
            IFrame1(i).Visible = True
        Else
            IFrame1(i).Visible = False
        End If
    Next
End Sub